home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
BBS Toolkit
/
BBS Toolkit.iso
/
rbbs_pc
/
rbbs_mpl.zip
/
DOORSYS.BAS
< prev
next >
Wrap
BASIC Source File
|
1992-07-03
|
10KB
|
136 lines
' $linesize:132
' $title: 'Proposed new SUB for Maple Street Version of RBBS-PC'
' $INCLUDE: 'RBBS-VAR.MOD'
'
' $SUBTITLE: 'DoorSys - Makes a DOOR.SYS drop file'
' $PAGE
'
' SUBPROGRAM NAME -- DoorSys
'
' INPUT PARAMETERS -- PARAMETER MEANING
' To be added later after finalization of merge
'
' OUTPUT PARAMETERS -- ???
'
' SUBPROGRAM PURPOSE -- Create a DOOR.SYS drop file
'
'DOOR.SYS Modification begins here per Kenny Gardner - author of GAP and the
'creator/cheerleader of DOOR.SYS. Kenny told me that if RBBS-PC does not
'support the fields to put just a CR/LF which is what should happen here. He
'said the doors are supposed to be smart enough to use their own default value
'if RBBS-PC cannot give it one. If you take a look at QKDOOR you will find it
'also does things this way - I went to the source to confirm this! 8-)
'This merge creates both a DORINFO?.DEF and a DOOR.SYS....unless of course you
'comment out the above DORINFO?.DEF routines code...."Just Do It!" <BIG GRIN>
10 SUB DoorSys STATIC
CALL TimeRemain (MinsRemaining) 'ER 06/05/92
Close 2
OPEN "O", 2, ZNodeWorkDrvPath$ + "DOOR.SYS" 'ER 05/31/92
IF ZLocalUser THEN _ '(1)'ER 05/30/92
PRINT #2, "COM0:" _ 'ER 05/30/92
ELSE PRINT #2, ZComPort$ + ":" 'ER 05/30/92
PRINT #2, ZCBaud$ '(2)'ER 05/30/92
ZPosition% = INSTR(ZBaudParity$, "N,") 'ER 06/17/92
PRINT #2, MID$(ZBaudParity$, ZPosition% + 2, 1) '(3)'ER 06/17/92
PRINT #2, ZNodeFileID$ '(4)'ER 05/30/92
PRINT #2, ZTalkToModemAt$ '(5)'ER 05/30/92
IF ZSnoop = -1 THEN _ '(6)'ER 05/30/92
PRINT #2, "Y" _ 'ER 05/30/92
ELSE PRINT #2, "N" 'ER 05/30/92
IF ZPrinter = -1 THEN _ '(7)'ER 05/30/92
PRINT #2, "Y" _ 'ER 05/30/92
ELSE PRINT #2, "N" 'ER 05/30/92
IF ZSysopAvail = -1 OR ZSysopAnnoy = -1 THEN _ '(8)'ER 06/05/92
PRINT #2, "Y" _ 'ER 06/05/92
ELSE PRINT #2, "N" 'ER 06/05/92
IF ZSysopAvail = -1 OR ZSysopAnnoy = -1 THEN _ '(9)'ER 06/05/92
PRINT #2, "Y" _ 'ER 06/05/92
ELSE PRINT #2, "N" 'ER 06/05/92
IF ZGlobalSysop THEN _ '(10)'ER 05/30/92
PRINT #2, ZSysopFirstName$ + " " + ZSysopLastName$ _ 'ER 06/05/92
ELSE PRINT #2, OrigFirstName$ + " " + ZLastName$ 'ER 05/30/92
PRINT #2, ZCityState$ '(11)'ER 05/30/92
PRINT #2, "" '(12)'ER 06/09/92
PRINT #2, "" '(13)'ER 06/09/92
PRINT #2, ZPswdSave$ '(14)'ER 05/30/92
ZZ$ = STR$(ZUserSecLevel) 'RT070192
CALL Trim(ZZ$) 'RT070192
PRINT #2, ZZ$ '(15)'RT070192
ZZ$ = STR$(ZTimesLoggedOn) 'RT070192
CALL Trim(ZZ$) 'RT070192
PRINT #2, ZZ$ '(16)'RT070192
PRINT #2, MID$(ZLastDateTimeOn$, 1, 2) + "/" + _ 'ER 06/05/92
MID$(ZLastDateTimeOn$, 4 ,2) + "/" + _ 'ER 06/05/92
MID$(ZLastDateTimeOn$, 7 ,2) 'ER 06/05/92
ZZ$ = STR$(INT(MinsRemaining * 60)) 'RT070192
CALL Trim(ZZ$) 'RT070192
PRINT #2, ZZ$ '(18)'RT070192
ZZ$ = STR$(INT(MinsRemaining)) 'RT070192
CALL Trim(ZZ$) 'RT070192
PRINT #2, ZZ$ '(19)'RT070192
IF ZWasGR = 2 THEN _ '(20)'ER 05/30/92
PRINT #2, "GR" _ 'ER 05/30/92
ELSE PRINT #2, "NG" 'ER 05/30/92
ZZ$ = STR$(ZPageLength) 'RT070192
CALL Trim(ZZ$) 'RT070192
PRINT #2, ZZ$ '(21)'RT070192
IF ZExpertUser THEN _ '(22)'ER 05/30/92
PRINT #2, "Y" _ 'ER 05/30/92
ELSE PRINT #2, "N" 'ER 05/30/92
PRINT #2, "" '(23)'ER 06/09/92
PRINT #2, "" '(24)'ER 06/09/92
PRINT #2, ZExpirationDate$ '(25)'ER 05/30/92
ZZ$ = STR$(ZUserFileIndex) 'RT070192
CALL Trim(ZZ$) 'RT070192
PRINT #2, ZZ$ '(26)'RT070192
PRINT #2, ZUserXferDefault$ '(27)'ER 05/30/92
ZZ$ = STR$(ZUplds) 'RT070192
CALL Trim(ZZ$) 'RT070192
PRINT #2, ZZ$ '(28)'RT070192
ZZ$ = STR$(ZDnlds) 'RT070192
CALL Trim(ZZ$) 'RT070192
PRINT #2, ZZ$ '(29)'RT070192
ZZ$ = STR$(ZBytesToday!) 'RT070192
CALL Trim(ZZ$) 'RT070192
PRINT #2, ZZ$ '(30)'RT070192
PRINT #2, "" '(31)'ER 06/09/92
PRINT #2, "" '(32)'ER 06/09/92
PRINT #2, "" '(33)'ER 06/09/92
PRINT #2, "" '(34)'ER 06/09/92
PRINT #2, ZSysopFirstName$ '(35)'ER 06/05/92
PRINT #2, "" '(36)'ER 06/09/92
PRINT #2, "" '(37)'ER 06/09/92
IF ZReliableMode = -1 THEN _ '(38)'ER 06/17/92
PRINT #2, "Y" _ 'ER 06/05/92
ELSE PRINT #2, "N" 'ER 06/05/92
PRINT #2, "" '(39)'ER 06/09/92
IF ZShareIt THEN _ '(40)'ER 06/05/92
PRINT #2, "Y" _ 'ER 06/05/92
ELSE PRINT #2, "N" 'ER 06/05/92
PRINT #2, "" '(41)'ER 06/09/92
ZZ$ = STR$(ASC(ZBankTime$)) 'RT070192
CALL Trim(ZZ$) 'RT070192
PRINT #2, ZZ$ '(42)'RT070192
PRINT #2, RIGHT$(STR$(ASC(MID$(ZListNewDate$,2))),2) + _ '(43) ' DOORSYS
"/" + _ ' DOORSYS
RIGHT$(STR$(ASC(MID$(ZListNewDate$,3))),2) + _ ' DOORSYS
"/" + _ ' DOORSYS
RIGHT$(STR$(ASC(ZListNewDate$)),2) ' DOORSYS
PRINT #2, LEFT$(ZTimeLoggedOn$, 5) '(44)'ER 06/05/92
PRINT #2, RIGHT$(ZLastDateTimeOnSave$, 5) '(45)'ER 06/05/92
PRINT #2, "" '(46)'ER 06/05/92
ZZ$ = STR$(ZDLToday!) 'RT070192
CALL Trim(ZZ$) 'RT070192
PRINT #2, ZZ$ '(47)'RT070192
ZZ$ = STR$(ZULBytes!/1000) 'RT070192
CALL Trim(ZZ$) 'RT070192
PRINT #2, ZZ$ '(48)'RT070192
ZZ$ = STR$(ZDLBytes!/1000) 'RT070192
CALL Trim(ZZ$) 'RT070192
PRINT #2, ZZ$ '(49)'RT070192
PRINT #2, "RBBS-PC is the Best!" '(50)'ER 06/05/92
PRINT #2, "" '(51)'ER 06/09/92
PRINT #2, "" '(52)'ER 06/09/92
CLOSE 2 'ER 05/30/92
END SUB 'ER 06/17/92